home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / shazam11.zip / DEMOSE.EVT < prev    next >
Text File  |  1991-11-04  |  2KB  |  82 lines
  1.    {===================================================================
  2.  
  3.    ABOUT:  created with DLGDSN
  4.  
  5.    ===================================================================}
  6. procedure heAbout ;
  7. {$I edabout.src }
  8. var
  9.    Dialog                    : PDialog ;
  10. begin
  11.    Dialog                    := MakeDialog ;
  12.    DeskTop^.ExecView ( Dialog ) ;
  13.    Dispose ( Dialog , Done ) ;
  14. end ;
  15.  
  16. procedure heSystemFiles ;
  17. begin
  18.    heCloseAll ;
  19.    LoadWinIni ;
  20.    LoadDosIni ;
  21.    heTile ;
  22. end ;
  23.    {-------------------------------------------------------------------
  24.    
  25.    -------------------------------------------------------------------}
  26. procedure heOpen ;
  27. begin
  28.    if ExecDialog ( New ( PFileDialog ,
  29.                    Init ( FileSpec , 'Open file',
  30.                           '~N~ame' ,
  31.                           fdOpenButton , 100 ) ) ,
  32.                    @FileSpec) = cmCancel then EXIT ;
  33.    OpenEditor ( FileSpec , TRUE ) ;
  34. end ;
  35.    {-------------------------------------------------------------------
  36.    
  37.    -------------------------------------------------------------------}
  38. procedure heNew ;
  39. begin
  40.    OpenEditor ( '' , TRUE ) ;
  41. end ;
  42.    {-------------------------------------------------------------------
  43.    
  44.    -------------------------------------------------------------------}
  45. procedure heChangeDir ;
  46. begin
  47.    ExecDialog ( New ( PChDirDialog ,
  48.                       Init ( cdNormal , 0 ) ) , NIL ) ;
  49. end ;
  50.    {-------------------------------------------------------------------
  51.    
  52.    -------------------------------------------------------------------}
  53. procedure heShowClipboard ;
  54. begin
  55.    ClipWindow^.Select ;
  56.    ClipWindow^.Show ;
  57. end ;
  58.    {-------------------------------------------------------------------
  59.    25 line <--> 43/50 line (EGA/VGA)
  60.    -------------------------------------------------------------------}
  61. procedure heVideoMode ;
  62. var
  63.    NewMode                   : Word ;
  64. begin
  65.    NewMode                   := ScreenMode xor smFont8x8;
  66.    if NewMode and smFont8x8 <> 0 then
  67.       ShadowSize.X           := 1
  68.    else
  69.       ShadowSize.X           := 2 ;
  70.    SetScreenMode ( NewMode ) ;
  71. end ;
  72.  
  73. procedure heUserScreen ;
  74. begin
  75.    PullScreen ;
  76.    while not KeyPressed do ;
  77.    while KeyPressed do
  78.       if ReadKey = #0 then ;
  79.    DoneMemory ;
  80.    Application^.Redraw ;
  81. end ;
  82.